#!/usr/bin/perl -w

#$FILE = STDOUT;

#print $FILE "hello\n";

#testSub() or die "Testsub 0 is considered false";

#sub testSub
#{
#	return 0;
#}

my $bla = "TABLE-US-00007";
#my $tmp = substr($bla, 0, 9);
if($bla =~ /^\s*TABLE-US-/)
{
	print "YES!!\n";
}
else
{
	print "NO!!\n";
	print "\"" . substr($bla, 0, 9) . "\"\n";
}

my $s = "4000009.html";
if($s =~ m/^(\d+)\.html/)
{
	print $1 . "\n";
	if($1 > 4000000)
	{
		print "Bigger than 4 million\n";
	}
	if($1 < 4000020)
	{
		print "Less than 4 million twenty\n";
	}
	if($1 < 4000000)
	{
		print "Less than 4 million\n";
	}
}
else
{
	print "couldn't find it\n";	
}

print "s: $s\n";
